home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / comm / misc / termcomp13.lha / termcomp / Install-TermComp < prev    next >
Encoding:
Text File  |  1995-03-19  |  1.8 KB  |  83 lines
  1. ; script per l'installazione di TermComp
  2. ; Should be run from WorkBench by double-clicking on the icon
  3. ; Requires a stack of 16000 bytes or more
  4.  
  5. (complete 0)
  6.  
  7. (set @default-dest "Work:")
  8.  
  9. (set version (/ (getversion) 65536))
  10. (set version2 36)
  11.  
  12. ; install on hard disk
  13. (set dest2 (askdir  (prompt "Select a disk or drawer for TermComp")
  14.                     (default @default-dest)
  15.                     (help "Choose a destination disk or drawer that will contain"
  16.                            " TermComp. The installation program will create the TermComp drawer"
  17.                            " inside it."
  18.                     )
  19.            )
  20. )
  21.  
  22. (set dest1 (tackon dest2 "TermComp"))
  23.  
  24. (set @default-dest dest1)
  25. (message "\n\nThe program will be installed in\n" 
  26.           dest1
  27. )
  28.  
  29. (makedir dest1 (safe) (infos))
  30.  
  31. (set error (trap 4
  32.     (copyfiles (source "")
  33.           (pattern "TermComp#?")
  34.               (dest dest1)
  35.     )
  36.            )
  37. )
  38.  
  39. (if (> error 0) (message ("Dos error %ld " @ioerr)))
  40.  
  41. (complete 50)
  42.  
  43. (set fontdir (askdir  (prompt "Select a drawer for TermComp font")
  44.                     (default "fonts:")
  45.                     (help "Choose a destination drawer that will contain"
  46.                           " the font used by TermComp."
  47.                     )
  48.              )
  49. )
  50.  
  51. (set error (trap 4
  52.     (copyfiles (source "fonts")
  53.               (dest fontdir)
  54.               (all)
  55.     )
  56.            )
  57. )
  58.  
  59. (if (> error 0) (message ("Dos error %ld " @ioerr)))
  60.  
  61. (complete 75)
  62.  
  63. (set comando (cat "assign TermComp: \"" dest1 "\"") )
  64.  
  65. (startup "TermComp"
  66.     (prompt "This assign will be added to your user-startup :\n\n"
  67.             comando
  68.     )
  69.     (help "No help available.")
  70.     (command comando)
  71. )
  72.  
  73. (makeassign "TermComp" dest1)
  74.  
  75. (complete 100)
  76.  
  77. (exit    "Read TermComp.guide for shareware instructions.\n\n"
  78.     "Feedback to\n\n"
  79.     "Internet : mario.cannistra@pmn.it\n\n"
  80.     "Fidonet  : 2:334/21.16\n\n"
  81.     "AmigaNet : 39:101/402.16"
  82. )
  83.